      subroutine outputwebs

      use parm

      !test
      if(output_test_information) then
          write(2011,*) "---------------------------------"
          write(2011,*) "Information read from webs.webs"
          write(2011,*) "---------------------------------"
          write(2011,*) webs_database(:len_trim(webs_database))
          if(webs_base == 0) then
            write(2011,*) "Base Scenario: Historic"
          else if(webs_base == 1) then
            write(2011,*) "Base Scenario: Conventional"
          end if
          write(2011,*) "small dams", webs_small_dam
          write(2011,*) "holding ponds", webs_holding_pond
          write(2011,*) "holding pond hrus",webs_holding_pond_hru
          write(2011,*) "grazing hrus", webs_grazing_hru
          if(webs_tillage_type == 56) then
            write(2011,*) "conventional till"
          else if(webs_tillage_type == 4) then
            write(2011,*) "zero till"
          end if
          !write(2011,*) webs_tillage_cnop
          write(2011,*) "tillage hrus",webs_tillage_hru
          write(2011,*) "forage hrus", webs_forage_hru
          write(2011,*) "---------------------------------"
          write(2011,*) "Information used in program"
          write(2011,*) "---------------------------------"
      end if

      end
